RM <- read.csv("Residential Mortgages.csv",header=TRUE)
head(RM)
names(RM)
 [1] "ï..ContractRef"        "LoanBalance"          
 [3] "InterestType"          "InterestRate"         
 [5] "NIM"                   "MortgageType"         
 [7] "NewLoan"               "ProbationaryLoans"    
 [9] "DefaultedLoans"        "CreditRating"         
[11] "InterestIncome"        "LTV"                  
[13] "LTVCategory"           "MortgageYears"        
[15] "PropertyValue"         "AnnualPYMT"           
[17] "MaturityDate"          "BookingDate"          
[19] "LastValuationDate"     "ValuationAgeYears"    
[21] "CreditRatingMovement"  "County"               
[23] "Branch"                "Address"              
[25] "Town"                  "AddressLatitude"      
[27] "AddressLongitude"      "InArrears"            
[29] "ValueInArrears"        "DaysInArrears"        
[31] "ArrearsCategory"       "X._HousePriceMovement"
[33] "UpdatedPropertyValue"  "LTVUpdated"           
[35] "LTVCategoryUpdated"   
library(lattice)
par(mfrow = c(2,2))
df <- unique(RM[c(2:6,9:16,20,22,26:31)]) 
head(df)
LS0tDQp0aXRsZTogIkRlc2NyaXB0aXZlIHN0YXRpc3RpY3MiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cn0NClJNIDwtIHJlYWQuY3N2KCJSZXNpZGVudGlhbCBNb3J0Z2FnZXMuY3N2IixoZWFkZXI9VFJVRSkNCmhlYWQoUk0pDQpuYW1lcyhSTSkNCmBgYA0KDQpgYGB7cn0NCmxpYnJhcnkobGF0dGljZSkNCnBhcihtZnJvdyA9IGMoMiwyKSkNCmRmIDwtIHVuaXF1ZShSTVtjKDI6Niw5OjE2LDIwLDIyLDI2OjMxKV0pIA0KaGVhZChkZikNCmBgYA0KYGBge3J9DQp2YXJfbGlzdDwtIG5hbWVzKGRmKVsxOjUsNzoyMV0NCm1vZGVscyA8LSBsYXBwbHkodmFyX2xpc3QsIA0KICAgICAgICAgIGZ1bmN0aW9uKHgpIA0KICAgICAgICAgICAgew0KICAgICAgICAgICAgIG1vZCA9IGxtKHN1YnN0aXR1dGUoRGVmYXVsdGVkTG9hbnMgfiBpLCBsaXN0KGkgPSBhcy5uYW1lKHgpKSksIGRhdGEgPSBkZikNCiAgICAgICAgICAgIH0pDQpgYGANCg0K